100 DIM A(15)
110 CALL SCREEN(2)
120 CALL CLEAR
130 N$="LOGIC"
140 CALL CHAR(43,"705070")
150 NM=11
160 A$="NU   CODIC   P.GIU P.SBA"
170 FOR K=1 TO 11
180 A(K)=146
190 NEXT K
200 A(12)=148
210 A(1)=147
220 FOR K=1 TO 8
230 CALL COLOR(K,4,1)
240 NEXT K
250 RANDOMIZE
260 CALL CHAR(144,"1818181818181818")
270 CALL CHAR(145,"000000FFFF")
280 CALL CHAR(146,"181818FFFF181818")
290 CALL CHAR(147,"000000FFFF181818")
300 CALL CHAR(148,"181818FFFF")
310 CALL CHAR(149,"1818181F1F181818")
320 CALL CHAR(150,"181818F8F8181818")
330 CALL CHAR(42,"7E8199A1A199817E")
340 CALL COLOR(9,16,1)
350 CALL COLOR(15,11,1)
360 CALL CHAR(97,"0F0F0F0F")
370 PRINT "     a    aaa aaa a aaa          a    a a a   a a            a    a a a a a a       "
380 PRINT "     a    a a a a a a            aaaa aaa aaa a aaa": : : : :"   BY LUCA BRENTARO *1984": : : :
390 PRINT "   RECORD DI ";N$: :"   IN MOSSE N+";NM
400 FOR K=1 TO 6
410 CALL CHAR(97,"0F0F0F0F")
412 CALL SOUND(-100,262,10,523,10,1046,10)
420 CALL CHAR(97,"000000000F0F0F0F")
422 CALL SOUND(-100,392,10,784,10,1568,10)
430 CALL CHAR(97,"00000000F0F0F0F0")
432 CALL SOUND(-100,466,10,932,10,1865,10)
440 CALL CHAR(97,"F0F0F0F0")
442 CALL SOUND(-100,523,10,1046,10,2093,10)
450 NEXT K
460 CALL CLEAR
470 PRINT "   1) PER LE ISTRUZIONI": : :"   2) PER IL GIOCO     ": : :"   TU SCEGLI IL NUMERO _"
480 CALL KEY(3,K,S)
490 IF(S=0)+(K<49)+(K>50)THEN 480
500 CALL HCHAR(23,26,K)
501 CALL SOUND(100,440,10)
510 FOR S=1 TO 10
520 NEXT S
530 CALL CLEAR
540 IF K=49 THEN 1670
550 CALL CLEAR
560 FOR K=1 TO LEN(A$)
570 CALL HCHAR(1,4+K,ASC(SEG$(A$,K,1)))
580 NEXT K
590 FOR K=2 TO 24 STEP 2
600 IF K=2 THEN 660
610 CALL HCHAR(K-1,4,144)
620 CALL HCHAR(K-1,7,144)
630 CALL HCHAR(K-1,17,144)
640 CALL HCHAR(K-1,23,144)
650 CALL HCHAR(K-1,29,144)
660 CALL HCHAR(K,1,145,32)
670 CALL HCHAR(K,4,A(K/2))
680 CALL HCHAR(K,7,A(K/2))
690 CALL HCHAR(K,17,A(K/2))
700 CALL HCHAR(K,23,A(K/2))
710 CALL HCHAR(K,29,A(K/2))
720 NEXT K
730 FOR K=1 TO 4
740 A(K)=INT(RND*6)+1
750 FOR S=1 TO K
760 IF S=K THEN 780
770 IF A(K)=A(S)THEN 740
780 REM  
790 NEXT S
800 NEXT K
810 B=0
820 B=B+1
830 FOR K=1 TO LEN(STR$(B))
840 CALL HCHAR((B*2)+1,4+K,ASC(SEG$(STR$(B),K,1)))
850 NEXT K
860 FOR K=1 TO 4
870 D(K)=0
880 NEXT K
890 F=0
900 E=0
910 FOR C=9 TO 15 STEP 2
920 CALL KEY(3,K,S)
930 IF(K<49)+(K>54)+(S=0)THEN 920
940 FOR I=1 TO 4
950 IF D(I)+48=K THEN 960 ELSE 980
960 CALL SOUND(-100,220,1)
970 GOTO 920
980 REM   
990 NEXT I
1000 CALL HCHAR((B*2)+1,C,K)
1010 D((C-7)/2)=K-48
1020 NEXT C
1030 FOR K=1 TO 4
1040 FOR S=1 TO 4
1050 IF D(K)=A(S)THEN 1130
1060 REM  
1070 NEXT S
1080 NEXT K
1090 CALL HCHAR((B*2)+1,20,ASC(STR$(E)))
1100 CALL HCHAR((B*2)+1,26,ASC(STR$(F)))
1110 IF E=4 THEN 1300
1120 IF B=11 THEN 1180 ELSE 820
1130 IF K=S THEN 1160
1140 F=F+1
1150 GOTO 1060
1160 E=E+1
1170 GOTO 1060
1180 CALL COLOR(15,13,1)
1190 FOR K=1 TO 10
1200 CALL SOUND(100,131,10,262,10)
1210 CALL SOUND(100,330,10,165,10)
1220 NEXT K
1230 CALL SOUND(-1000,330,10,220,10,165,10)
1240 CALL CLEAR
1250 B$=STR$(A(1))&STR$(A(2))&STR$(A(3))&STR$(A(4))
1260 PRINT "IL CODICE SEGRETO ERA ";B$
1270 FOR K=1 TO 2000
1280 NEXT K
1290 GOTO 1450
1300 FOR K=100 TO 10 STEP-10
1310 CALL SOUND(K,330,20,131,10)
1320 CALL SOUND(K,330,20,165,10)
1330 CALL SOUND(K,330,20,196,10)
1340 NEXT K
1350 CALL SOUND(-1000,131,10,262,10,392,10)
1360 CALL SOUND(-1000,392,10,330,10,165,10)
1370 FOR K=1 TO 10
1380 CALL COLOR(4,5,1)
1390 CALL COLOR(3,5,1)
1400 CALL SOUND(10,131,10)
1410 CALL COLOR(3,16,1)
1420 CALL COLOR(4,16,1)
1430 CALL SOUND(10,131,10)
1440 NEXT K
1450 CALL CLEAR
1460 FOR K=1 TO 8
1470 CALL COLOR(K,4,1)
1480 NEXT K
1490 IF B<NM THEN 1500 ELSE 1620
1500 PRINT " HAI FATTO IL RECORD SCRIVI": :" ORA LE TUE INIZIALI ___ ": :
1510 FOR C=24 TO 26
1520 CALL KEY(3,K,S)
1530 IF S=0 THEN 1520
1540 CALL HCHAR(22,C,K)
1550 X$(C-23)=CHR$(K)
1560 NEXT C
1570 N$=X$(1)&X$(2)&X$(3)
1580 NM=B
1582 CALL SOUND(-100,440,10,880,10,1660,10)
1590 FOR K=1 TO 200
1600 NEXT K
1610 CALL CLEAR
1620 PRINT "VUOI RITENTARE(S/N)?"
1630 CALL KEY(3,K,S)
1640 IF K=78 THEN 1800
1650 IF K=83 THEN 1780 ELSE 1630
1660 CALL CLEAR
1670 PRINT " QUESTO E' LOGIC PIU' CONO= ": :" SCIUTO SOTTO ALTRI NOMI.LO": :" SCOPO DEL GIOCO E' QUELLO": :
1680 PRINT " DI SCOPRIRE IL CODICE,CRE=": :" ATO DA IL COMPUTER, MEDIAN=": :" LE SEGNALAZIONI SCRITTE IN": :
1690 PRINT " COLONNE 'P.GIU' E 'P.SBA'.": :" NELLA PRIMA IL COMPUTER VI": :" STAMPA IL TOTALE DEI NUME=": :
1700 PRINT " RI GIUSTI AL POSTO GIUSTO.": :" PREMI UN TASTO."
1710 CALL KEY(3,K,S)
1720 IF S=0 THEN 1710
1730 CALL CLEAR
1740 PRINT " NELLA SECONDA I NUMERI ": :" GIUSTI MA AL POSTO": :" SBAGLIATO.": :
1750 PRINT " IL CODICE E' COMPOSTO DAI": :" NUMERI DA 1 A 6 E NON": :" PREVEDE NUMERI DOPPI.": :
1755 PRINT " PREMI UN TASTO PER": :" GIOCARE!"
1760 CALL KEY(3,K,S)
1770 IF S=0 THEN 1760 ELSE 550
1780 CALL CLEAR
1790 GOTO 170
1800 END
